المشرف المتميز
 لشهر
أغسطس 2004

العضو المميز
 لشهر أغسطس 2004

===

سابق

 

سابق

Anwarica

     


صفحات: (8) « الاول ... 6 7 [8]  ( اذهب إلى أول مشاركة غير مقروءة ) Reply to this topicStart new topicStart Poll

> كل ما تود معرفته عن ال SQL SERVER, سلسلة دروس
arafa
Report PostQuote Post


مشترك
****

مجموعة اعضاء
مشاركات : 541
رقم العضو 7,814
انضم في : 6-January 03

تنبيه : (0%) -----


بسم الله الرحمن الرحيم
لقد قمت والحمد لله بالحصول على نسخة SQL Server 2000
واقوم حاليا بالعمل والتدريب عليها بناءا على ما جاء فى شرح الاخ الفاضل goldnoil

ولكن قد تواجهنى بعض الاشياء التى لا اعرفها
على العموم ما اريدة الان هو :

كيف يتم الاتصال بقاعدة البيانات SQL من خلال الفيجوال بيسك؟؟
لقد استخدمت الكود التالى ولكن ظهر لى خطأ بالسطر رقم 4

CODE
Global Myconn As New SQLDMO.SQLServer
Global Cn As New ADODB.Connection

Private Sub Main()
' قم باضافة مكتبة ال ado  وتعريف كائن يحمل الاتصال
Dim Cn As New ADODB.Connection

'قم بفتح الاتصال من خلال عبارة الاتصال
Cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;VBCODE=Northwind;Data Source=eg;Application Name=TestApp"

Form1.Show

End Sub


الخطأ ظهر بالسطر التالى :

CODE
Cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;VBCODE=Northwind;Data Source=eg;Application Name=TestApp"


فما هو الخطأ فى الكود علما بأنى نفذت ما قاله لى الاخ طارق ابراهيم؟

السؤال الثانى او المطلب الثانى :

ياريت لو تشرح لنا او تضع لنا مشروع كامل يبين كيفية الاتصال بال SQL Server
وكيفية الاضافة والحذف والتعديل من خلال فيجوال بيسك

ارجو ان تهتم بالموضوع ارجوك لانى فعلا حبيت جدا SQL Server واريد ان اتعلمة


وياريت تكمل الموضوع لانى ارى ان الموضوع قد حدث له سبات

والسلام عليكم ورحمة الله


--------------------
Mini ProfilePMUsers Website
Top
el7lme
  مرجع رابط المشاركة : Sep 26 2004, 12:53 AM
Report PostQuote Post


عضو جديد
*

مجموعة اعضاء جدد
مشاركات : 2
رقم العضو 32,722
انضم في : 26-September 04



[B] جزاك الله خيرا على هذه الدروس الجميلة وهذا هو اول يوم لى بالمنتدى وان شاء الله سأكون من اشد المعجبين به


El7lme
Mini ProfilePMEmail Poster
Top
server_programmer
Report PostQuote Post


عضو جديد
*

مجموعة اعضاء
مشاركات : 46
رقم العضو 28,581
انضم في : 6-July 04



الخطأ في السطر الرابع

منطقي و السبب أنك تنشأ كائن جديد بالذاكرة على الرغم من أنك عرفتة أعلى الموديول
بأنة جديد

سيكون الكود بالشكل التالي


Global Myconn As New SQLDMO.SQLServer

Global Cn As New ADODB.Connection

Private Sub Main()
' قم باضافة مكتبة ال ado وتعريف كائن يحمل الاتصال
'قم بفتح الاتصال من خلال عبارة الاتصال
Cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;VBCODE=Northwind;Data Source=eg;Application Name=TestApp"

Form1.Show

End Sub


--------------------
وفوق كل ذي علم عليم
Mini ProfilePMEmail Poster
Top
طارق إبراهيم
Report PostQuote Post


عضو شرف
Group Icon

مجموعة المشرفين
مشاركات : 1,599
رقم العضو 5,617
انضم في : 7-November 02



لماذا قمت بتعريف كائن اتصال باستخدتم ال SQL DMO طالما انت تستخد ال ADO CONNECTION


--------------------
"من استبد برأيه هلك و من شاور الناس شاركها في عقولها " الامام علي(كرم الله و جهه)
Mini ProfilePMUsers Website
Top
arafa
Report PostEdit PostQuote Post


مشترك
****

مجموعة اعضاء
مشاركات : 541
رقم العضو 7,814
انضم في : 6-January 03

تنبيه : (0%) -----


السلام عليكم اخوانى ،

لقد استخدمت هذا الكود :
CODE
Dim MyConn    As New SQLDMO.SQLServer


لمعرفة حالة الاتصال مع السيرفر

ووضعت الكود التالى فى اداة Timer

'
CODE
Select Case MyConn.Status
'
Case 0:
     Label19.Caption = ("unknown state")
Case 1:
     Label19.Caption = ("server is running")
Case 2:
     Label19.Caption = ("server is paused")
Case 3:
     Label19.Caption = ("server is stopped")
Case 4:
     Label19.Caption = ("server is starting")
Case 5:
     Label19.Caption = ("server is stopping")
Case 6:
     Label19.Caption = ("server is continuing")
Case 7:
     Label19.Caption = ("server is pausing")
'
End Select


على العموم الكود يعمل لدى جيدا ولا توجد اى مشاكل فى الاتصال الان


--------------------
Mini ProfilePMUsers Website
Top
1 مستخدم يقرأون هذا الموضوع (0 ضيف0 مستخدم مجهول)
1 أعضاء: arafa

Topic Options صفحات: (8) « الاول ... 6 7 [8]  Reply to this topic Fast ReplyStart new topicStart Poll


 



[ Script Execution time: 0.1320 ]   [ 12 queries used ]   [ ضغط البيانات فعال ]

Google